<!--#include file="CheckSession.asp"-->
<!--#include file="../inc/PublicFun.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
    <title>�ޱ����ĵ�</title>
    <link href="css/style.css" rel="stylesheet" type="text/css"/>
</head>

<body>
<%
IF Request("Action") = "s" Then
	'�������޸�
		Set Rs=Server.CreateObject("Adodb.RecordSet")
			sql="select * from Member where MemberName='"&request.Form("TxtMemberName")&"'"
			rs.open sql,conn,1,3
			IF not(rs.eof and rs.bof) Then
				response.Write("<script language='javascript'>alert('������ͬ���û���');history.back()</script>")
				response.End()				
			End If
			rs.addnew
			Rs("MemberName")=Trim(Request("TxtMemberName"))
			Rs("MemberPwd")=Trim(Request("TxtMemberPwd"))	
			Rs("MemberIp")=request.ServerVariables("LOCAL_ADDR")
			Rs("MemberLoginNum")=0
			Rs("MemberTel")=Trim(Request("TxtMemberTel"))
			Rs("MemberIsCheck")=1
			Rs("MemberTypeId")=Trim(Request("TxtMemberTypeId"))	
			Rs("Times")= Now()
			Rs.Update	
		Rs.Close()
		Set Rs=Nothing
		response.Write("<script language='javascript'>alert('��ӳɹ�������');window.location.href='Admin_MemberAdd . asp'</script>")
	End IF
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50" align="center" class="title">��ӻ�Ա</td>
  </tr>
</table>
<div>&nbsp;</div>
<table width="100%" border="1" align="center" cellpadding="5" cellspacing="0" style="border-collapse:collapse">
  <form action="?action=s&NewsId=<%=strNewsId%>" method="post" name="form1">
  <tr>
    <td width="150" align="right" nowrap>�û���</td>
    <td nowrap><input name="TxtMemberName" type="text" class="inputtext" id="TxtMemberName" style="width:300px" value="<%=TxtNewsTitle%>" maxlength="50"></td>
  	</tr>
  <tr>
    <td align="right" nowrap>���룺</td>
    <td valign="top" nowrap><input name="TxtMemberPwd" type="text" class="inputtext" id="TxtMemberPwd" style="width:300px" value="<%=TxtNewsTitle%>" maxlength="50"></td>
 	</tr>
  <tr>
    <td align="right" nowrap>�绰��</td>
    <td valign="top" nowrap><input name="TxtMemberTel" type="text" class="inputtext" id="TxtMemberTel" style="width:300px" value="<%=TxtNewsTitle%>" maxlength="50"></td>
  </tr>
  <tr>
    <td align="right" nowrap>���ͣ�</td>
    <td valign="top" nowrap>
		<select name="TxtMemberTypeId" id="TxtMemberTypeId" style="HEIGHT=20;WIDTH=200px">
		<%
			Set Rs=Server.CreateObject("Adodb.RecordSet")
			Sql="Select * from mtype "
			Rs.open Sql,Conn,1,3
			If not(Rs.Eof and Rs.Bof) then
				do while not Rs.Eof 
		%>
				<option value="<%=rs("id")%>"><%=rs("classname")%></option>
		<%
					Rs.MoveNext
				Loop
			End IF
			Rs.Close()
			Set Rs=Nothing
		%>
		</select>	
	</td>
  </tr>
    
  <tr>
  <td>&nbsp;</td>
    <td><input name="submit1" type="submit" class="button" value="ȷ���ύ">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="reset" type="reset" class="button" value="ȡ����д"></td>
    </tr>  
  </form>
</table>
</body>
</html>
